home *** CD-ROM | disk | FTP | other *** search
/ Word Play Farm / Word Play Farm.iso / pc / movies / rwrdfinl.dxr / 00136.ls < prev    next >
Encoding:
Text File  |  1996-07-26  |  692 b   |  25 lines
  1. on mouseUp
  2.   global playOn, singStart, lastName
  3.   puppetSprite(the clickOn, 1)
  4.   set nom to the name of cast the castNum of sprite the clickOn
  5.   if nom = "singBtn" then
  6.     set the castNum of sprite the clickOn to the number of cast "stopBtn"
  7.     updateStage()
  8.     set playOn to 1
  9.     set singStart to lastName
  10.     set the visible of sprite 9 to 0
  11.     set the visible of sprite 10 to 0
  12.   else
  13.     set the castNum of sprite the clickOn to the number of cast "singBtn"
  14.     updateStage()
  15.     if not soundBusy(2) then
  16.       puppetSound(0)
  17.       sound close 2
  18.     end if
  19.     set playOn to 0
  20.     go(singStart)
  21.     set the visible of sprite 9 to 1
  22.     set the visible of sprite 10 to 1
  23.   end if
  24. end
  25.